#setwd("~/Documents/macro-action/")

## reading raw data:
pp = scan("maps/2rooms.txt", what='character', sep="\n")

## splitting up strings into squares:
map = t(sapply( pp, function(x) strsplit(x, split="")[[1]] ))
rownames(map)=NULL
map=as.data.frame(map)

print(map)

